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ABSTRACT 
THIS, Tye  PROGRAN TS NON-SUITCH REGISTER CPUs. 

ceu's, ie SWITCH REGISTE HANGED BY CHANGING 
THE CONTENTS OF SWREG (170). 


La Mi eres “AiG RRINTENANCE OF THe N 08 uh hoe AS AN AID 


BOOTSTRAP LOADERVERSION 
Me ARed = toate, Tests . 

PRG1 - DATA DUMP TO THE CONSOLE TELETYPE 
REQUIREMENTS 


EQUIPMENT 

GT4O DISPLAY PROCESSOR WITH ROM BOOTSTRAPVERSION 1 OR 2. 
STORAGE 

THIS PROGRAM USES MEMORY LOCATIONS 0-777& + 16000-16776(8). 


PROCEDURE FOR A NORMAL BINARY TAPE SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


STARTING ADDRESSES 


0200 PROGRAM 0, ROM LOGIC TEST. 
Oe04 PROGRAM 1, ROM DATA DUMP ms CONSOLE TTY. 


SWITCH SETTINGS | 
SW 1120 NORMAL RUN. (64._ INTERATIONS/TEST) 


? ri GRAM_INTERAT 
SW EST RSION @ ROM (Sl2. WORDS) 
TEST AS VERSION 1 ROM (eS6. WORDS? 
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_ "PROGRAM DESCRIPTIONS 


Sep 
rit pan - LOGIC TESTS 


OGIC_TESTS CONSIST OF 4 ROUTINES TO TEST THE GT4O 80M 
“Bo STRAP LOGIC 


ROUTINE DESCRIPTIONS 


ROUTINE TESTS 
Tl OE Tr - GT4O ROM BOOTSTRAP 
Te me st te 
T3 GT4O Ron TROOTSTRAP TIMES OUT WHEN REFERENCED BY A 
DATIP BUS CYCLE 
T4 THAT DATA READ FROM THE ROM IS CORRECT 


PRG1 - ROM DATA DUMP 


THIS PROGRAM TYPES OUT THE Sl2./256. WORDS OF ROM DATA ON THE 
CONSOLE TELETYPE AND HALTS. 


THE PROGRAM WILL Y HALT ON ERROR. THE PROGRAM DOES NOT 
SOnTATN FACIL Tes € FOR REPORTING Ne CONDITI 
4 OOP, REPLACE THE ERROR 


IN 


4 
oOo 


TQ PLACE THE 
HALT WITH A NOP. 
EXECUTION TIME 


PRGO TAKES APPROX. S SECONDS PER PASS. 
PROG] N/A 
PROGe N/A 


“ 
a 
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DOGTOC.P11 1S-SEP-76 00:00 


T ME.BIN, SEG, 
“EAoL™ Age Bae 


:4080 AQORESS=0200 
DEPRESS STAR 
: STACK POINTER 1S AT 500 
-LIST 
SCOPEC 


; EQUATE oaEN 
2177364 


DO TU EO Ope Ve ore 


Teese BS 
SS = 


BS 
BY 


fin Soho 
te 
nd 


Ol 
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LD 


;ADDRESS OF SWITCH REGISTER 
; INITIAL STACK SETTING 





ee fe ee ee ee 


GT4O ROM BOOTS 
DOGTOC.P1l 
167 
ae 
ees 
He Bi 
i Bi 
Hs Bis 
i Bie 
ie Bi 
i7?7 1 
ie Bie 
ie Bi 
181 
ige 
183 
184 001034 
185 001040 
186 O0i044 
187 
188 
189 
190 0010Se 
191 0010S6 
1Se 001062 
193 001070 
iS4 00107e 
195 001074 
196 001100 
197 001102 
198 001104 
199 001110 
200 001114 
201 OO01116 
20e 001120 
203 O0llee 
e204 001124 
20S O0ile6 
206 001130 
207 
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.=1000 
ROMADD: 166000 :ROM ADDRESS 
a ae oe 
Der 172002 !DISPLAY STATUS REGISTER 
ILLER: 10 :# OF FILLER CHAR 
FILCNT: 10 
sae 8 
CHARA: 0 
TERM: 0 
MOV aSTKPTR, %b sSET STACK PTR 
ISR PC, SWITCH :CHECK ROM VERSION 
;PROGRAM 0 LOGIC TESTS 
PRGO: CLR ICNT sCLEAR PASS COUNT 
PRGOR: MOV aSTKPTR, %& 

002100 MOV SPRGOR,RETURN  ;SET RETURN ADDRESS FOR SCOPE 
;TEST1 TEST ABILITY TO REFERENCE ROM WITHOUT TIMING OUT 
Tl: MOV ROMADD , x0 ;GET 

MOV WORDS, 1 :GET ADDRESS COUNTER 
ooo004 MOV #ERROR,4 :SET UP TIME OUT VECTOR 
TIA: MOV (0).%3 : REFERENCE 
TST (0)4 :ROM 
ADD -(0), DUMP ; 
CMP (0), tO) ; 
BITB. =: (0) 4, (00+ : 
SUB -(0)’ DUMP 
ADD #2, 40 s INCREMENT POINTER 
DEC %1 :DECREMENT ADDRESS COUNTER 
BNE TIA *BRANCH IF NOT FINISHED 
BR T1B :GO TO SCOPE LOOP 
EPROR1: CMP (6) +, (6)+ ‘REPOSITION STACK 
HALT .. : TIME-OUT ON ROM ADDRESS 
BR - TIA LOOP ON ERROR 
TIB: SCOPE 
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1l 18-SEP-76 00:00 
:TEST2 TEST THAT ROM DATA CAN BE READ RELIABLY. 
T2: v R “0 :GET ROM ADDRESS 
Bi 136 Bi35ar afte : nov fiOROS 2 GET ADORESS COUNT 
001142 012737 900006 oo00004 MOV 86,4 ; INITIAL TIME ont VECTOR 
bo1156 bOSo3? 001016 T2A: CR DUMP INITIAL 
M011 ll V (0),%3 ;GET rai 
601156 082037 oO1016 ADD (0)+, DUMP ;ADD DATA TO DUMP 
001162 163793 001016 aus DUN, 3 ; SUBTRACT DATA FROM DATA 
B70 590000 ERROR2: HALT ‘BR TA ERROR me 
Bott 000766 SR T2A :LOOP ON ERROR 
001174 044037 001016 728 BIC -(0), DUMP :CLEAR DUMP BITS 
001200 00:402 BEG Tec *BRANCH IF EQUAL TO C 
001202 900000 HALT :DATA 
001204 000773 2K *LOOP ON ERROR 
001206 021010 Tec: CMP (6), (0) : COMPARE DA 
Boise 001402 BEG ; BRANCH F EQUAL 
5 ey ; LOOP RROR 
obieis leeo4g T2D: ie (0)+,-(0) ; COMPARE DATA (BYTE OPERATION) 
e 1 ’ 
Bie bene ok 
: T + NT ADDRESS POINTER 
Bisse Heeset es? ren! (ees STE 
001232 001346 BNE Tea yp IF NOT DONE 
001234 104400 SCOPE 





GT4O nop BOOTSTRAP ey 
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ae 


es pall alk HEY Be 


e 


‘TEEN: TEST_THAT ROM TIMES OUT IF REFERENCED BY OTHER 


HAN DATI BUS CYCLE 
hs MOV WSTKPTR, “6 ;SET STACK PTR 
MOV ROMADD, 40 :GET ROM ADDRESS 
MOV WORDS, %1 :GET ADDRESS COUNTER 
T3AA: MOV #738, 4 ;SET UP TIME OUT VECTOR 
T3A: MOV %0, (0) ‘ATTEMPT TO ALTER DATA 
HALT sHERE IF DID NOT TIME OUT 
BR T3A ‘LOOP ON ERROR 
T38: MOV #T30,4 SET UP TINE | OUT VECTOR 
- CHP (6)+, (6)+ sREPOSITION STAC 
. wer ae Heke if O10 R ALTER DATA. 
T30: MOV #T3F,4 iLpor ee Tine but VECTOR 
CMP (6)+' (6)+ *REPOSITION STACK 
T3E: CLR JROMADD {ATTEMPT TO ALTER DATA 
HALT oe IF DID NOT TIME OUT 
T3F: TST (04 <i NENT ADDRESS POINTER 
Bec He F eau PENT AboRESS COUNTER 
MOV #6, 84 ae TURN IE TIME OUT TRAP 
SCOPE :SCOPE LOOP 


ee 


GT4O R 
DOG 


of 


001450 


WASREREAD 


PREG ASSE RRO CORI RRE EER N ae S5 
Stetatatetatatat= 


A ee 


000137 


001034 


177364 
177566 


177566 


BOOTSTRAP TEST MAINDEC-11-DDGTD-C 
ll 15-SEP-76 00:00 


DONE1: 
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en ADDRESS 
=G00D DATA 

R3=BAD ADDRESS 

R4=BAD DATA 

ye 

yA 

¥ AonabO“ta 

MOV (%1), %2 

MOV (%3)' x4 

CMP %2,%4 

BEQ T48 

HALT 

BR THA 

CMP (%1)4, (43)+ 

INC “0 

CMP WORDS , “0 

BNE T4A 

SCOPE 

INC ICNT 

MOV #1, 30SR 

MOV 8207, J#TPDBR 

TSTB asTPCSR 

BPL 4 

MOV #207, J#TPDBR 

TSTB  =s-_- dATPESR 

BPL $ 

MOV ae42, x0 

BEG DONE! 

RESET 

RESET 

ISR 7, (0) 

NOP 

NOP 

NOP 

IMP PRGO 
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‘tenes: ROM pare, Fo THE IMAGE DATA 


;SET UP INITIAL WORD COUN 
tb GSTS sabe" 


READ ROM VALUE 
;COMPARE EXPECTED TO THE VALUE READ 


pee ROM VALUE. FAILED TO EQUAL EXPECTED 


; INCREMENT ADDRESSES POINTERS 
; INCREMENT COUNT 
;COMPARE IF END WORD 

;BRANCH IF NOT LAST WORD 


; INCREMENT PASS COUNT 
;RI My 3 GT4O BELL 
;R HE TELETYPE BELL 


ce 


;RETURN TO DECTAPE MONITOR? 


;RETURN! 


TDC.P11 
307 
308 
318 001 
ae 
3? vata 
Sle 001512 
313 001516 
314 001522 
gis plese 
3i$ Bplese 
318 001536 
3139 001542 
320 O01S46 
321 001552 
3e2 001554 
3e3 001560 
324 001564 
325 001570 
326 001572 
327 001576 
3e8 001602 
329 O01 
330 oo161 
1 00161 
332 O01be0 
as 
335 001626 
336 001632 
237 001636 
238 001640 
3339 O01642 
240 O01646 
341 001650 
342 001654 
343 OO1656 
344 OO16E0 
245 
346 


2 
N 


15-SEP-76 00:00 
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Soot ROM BOOTSTRAP TEST MAINDEC-11-DDGTD-C 


; THIS PROGRAM TYPES OUT ROM DATA 


PRG1: 


PRGIA: 


PRG1B: 


PRGIC: 


PRGID: 


MACY11 27(1006) 


V 


aSTKPTR, “6 
#6 


(0)+, DeBTYP 
TPCSR 
“4 


PRG1 
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; TYPE MESSAGE 

;GE WORDS 

GET STARTING ADDRESS 
GET ADDRESS INDICATOR 
WAIT FOR 

; TELEPRINTER FLAG 

GET ADDRESS 

AND TYPE IT 


Hirde 
ALL _DATA TYPED 
:GO0 TO FINISH 


;RETURN TO PRG1B 
‘ve INDICATOR 


SCETURN TO PRCIB 


;ROUTINE TO LOOP ON A SINGLE ADDRESS 


SS 


T4O Ri Of BOOTS TRAE TEST MAINDEC-11-DDGTD-C MACY11 27(1006) OS-NOV-76 12:17 PAGE 11 
DOG 15-SEP-76 00:00 


Ba # 
EEE 
ER 


ne ;ROUTINE TO TYPE A MESSAGE 
350 910026 TYPEM: NOV "0, (6)+ SAVE REGISTER 0 : ie 
328 113897 oo102e aoe ice TERR AyOR CHARACTER 
353 001672 112037 001020 TYPEMA: MOVB = (0+, CHARA 
354 901676 123737 001020 001022 CMPB «CHARA. TERM iis Next SOORECTER THE TERM 
35 001704 001005 BNE TYPEMB TER 
001706 014600 -(6),%0 RESTORE RO 
357 001710 1 177564 TSTB —* TPCSR 
358 001714 1003 4 
359 001716 RTS 5 ;AND EXIT 
360 re le 001020 OO004S TYPEMB: CMPB CHARA a’% :WAS CHARACTER % 
33 001 te 177564 STB TPR ; TEST TELEPRINTER FLAG 
363 001734 100375 BPL “AND WAIT FOR DONE 
364 001736 012737 177566 MOV PDBR "LOAD TELEPRINTER WITH CAR. RET 
365 go1 744 013737 001010 oo1012 HOV iia FILCNT sLOAD FILLER COUNT 
365 1 1 177566 2S: MOV TPDBR ;PRINT FILLER CHAR 
368 ooi762 105737 177564 iS: TSTB TPESR j TEST TELEPRINTER FLAG 
$3 Bt 001012 BEE FILCNT i PUR ISHED For 9 
372 Soir Wee 000212 177566 SOY 212, TPDBR {LORD ELEPRINT WITH LINE FEED 
% 
32 BR ree an :GET NET CRANAE TER 
105737 177564 TYPEMC: TSTB §- TPCSR ; TEST TELEPRINTER FLAG 
002012 100375 BPL .- IT FOR DONE 
002014 013737 001020 177566 MOV CHARA, TPDBR ‘LOAD TELEPRINTER BUFFER 
000723 BR TYPEMA ?AND GET NEXT CHARACTER 


;SCOPE ROUTINE. THIS ROUTINE IS ENTERED AT THE END OF EACH SUBTEST. 


374 
375 
376 
377 
378 
320 
281 002024 032777 O40000 176140 SCOPEC: BIT  s40000,dSWR  #=§ ;TEST SR FOR SCOPE 
382 002032 001023 BNE  SCOPEB ;YES SCOPE 
383 002094 032777 004000 176130 BIT #4000, aSWR TEST FOR, ITERATION 
See Oooo 002076 002074 eH a ICOUNT Bi ERATION COMPLETE 
386 Doetee 01403 BEQ ITERATION COMPLETE GO TO SCOPEG 
7 GoSe37 002076 INC INCREMENT ITERATION COUNT 
283 Bpetee 902076 SCOPEG: CLR a 80.18 THERATION COUNT 
1] 100 MOV 3%, RETURN ;GET ADDRESS OF NEXT TEST 
391 02072 900002 RTI 3E 
$65 Gosove Goo000 Seer é CONTAINS SUBTEST ITERATION COUNT 
334 902109 900000 WORD 0 ;CONTAINS RETURN PC FOR SCOPE 
295 002102 005726 Scopes: ist (6)+ ;POP_PC 
2% 002104 012637 177776 MOV = (6) +, PSW ;RESTORE CONDITION CODES 
337 O0el10 900177 177764 JMP == MRETURN 


Eee EEEOOOeeee_ 


GT4YO ROM BOOTSTRAP TEST MAINDEC-11-DDGTD-C 


DDGTDC.P1l 


Shes Gee Rees 
aiulatatiattatuiatatatatontate stata 


HINSR TONE £55 PEROT 


. 


tetat=t =} 


GRes 


88 ONO00O 
RERE 


‘S 


a 


Sobor 


RBRERS 


i 


aU lente &§ 
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177564 
po6006 


000260 
177564 
177566 


000172 
175666 


;THIS ROUTINE CONVERTS AN OCTAL NUMBER TO ASCII AND TYPES IT ON THE TTY. 


ASCII MES S 
7: RCT 


Me: 
MS: 
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-ASCIT 
-ASCIT 
EVEN 


SWITCH: MOV 
MOV 


38: 


MOV 
CMP 


CMP 
MOV 


Hey 
BIT 
BNE 
MOV 
MOV 
BR 


;SAVE TPCSR 
: Ae Re 
;SAVE R1 
SAVE RO 


OS-NOV-76 12:17 PAGE le 


6 Dg 


CLEAR WORKING REGI 


iMOV FIRST 


ROTATE THE 


STER 


IT (MSB) INTO 


: FORM ASCII COE 
TEST TELEPRINTER 
“FLAG AND 


; NEXT 
;OCTAL CHARACTER 


; IN 
je SISTER 


{DECREMENT COUNTER 
'G0 TO O2AA IF NOT O 
TFINISHED. RESTORE REGISTERS 


'AND TPCSR 
ZAND EXIT 


*@%GT-40 ROM DATA%x%a’ 


O#ERRVEC, - (SP) 


#15, JHERRVEC 
ae 


(SP)+, (SP)+ 
tepie see RAVES 
#400, 2SWR 


#512. , WORDS 
START, IMAGE 


WAIT UNTIL DONE 
;LOAD TELEPRINTER BUFFER 
;CLEAR WORKING REGIS 


TER 


; SAVE YEE TONS CONTENTS 
;SET UP TO TEST FOR ie REGISTER 


;SET UP FOR 


SET UP FOR 
:TEST BIT 


;BR_IF VERSION 


1 


SET UP vert on e 


:SET UP VERS 


ON 2 


L 
S 


T FOR es REGISTE 


ENG 
T 


SENT 


OFF STACK 
SOFTWARE SWITCH REGISTER 
RESTORE VECTORS CONTENTS 


TH 
ARTING ADD. 


mm ee  e —--  C 
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SE ES LEE ON RR RRR AT REIN SMT wo 
= : 


459 -SBTTL ROM VERSION 2 VALUES 


GT4O ROM BOOTSTRAP TEST MAINDEC-11-DDGTD-C MACY11 27(1006) OS-NOV-76 12:17 PAGE 14 
DOGTDC.P11 15-SEP-76 00:00 ROM VERSION @ VALUES 


aime ag a ep gl 
at . NEW ORGIN ADDRESS AND SEVERAL “! 160000” 
1 = FOG ING IH THIS sis at AN al COPY OF THE CONTENTS 
 saneenns GHESEEFERESASESOSOSEOASSSSSSSOSSSDAEEESEESNSEEES 


461 


eweee wees 


-TITLE SCROLLING ROM BOOTSTRAP FOR THE GT4O 


; BOOTGT.T16 OCT 10, 1973 


a take 1973, DIGITAL EQUIPMENT CORPORATION 


MAYNARD, MASSACHUSETTS 
01754 


; WRITTEN BY JACK BURNESS. 


BRPGRRSHRE Badal Voltas Gene ORES 


494 ; S_PROGRAM te THE SECOND VERSION THE THE ROM BOOTSTRAP FOR 
49S ; THE cT40. BISPLAY TERMINAL. mY INCLUDES SCROLLING AND AN END OF 
496 ; MEMORY SEARCH FOR THE LOAD 


501 -ENABL ABS,AMA AS TED U DIRECTIVES FOR ABSOLUTE BINARY OUTPUT 
- NOTE: USE “MACDLX” TO ASSEMBLE THIS PROGRAM. 


GENeReGRES 


UnNUNUnN Uy 
Serer 
Wrre-oO 


-SBTTL DEFINITION SECTION 
. PAGE 





B 
fF 
eh 
q 
w 
3G 
nn" 
- ® 
& 
pt} 
5 


i 1 48-SEP-76 00:00 


et 
# 


) 0+ 0-+ 0-0-0 +p 0 
t ~-C).00D-soren 


ee A att tt 


uv 
ba 


oa ie 


Gaus 


aera 


in 


at 


LS a ae A 
ne 
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ION SECTION 
REGISTER DEFINITIONS 

BASIC DEFINTIONS 
RO=%0 sDEFINE STANDARO VALUES. 
Rl=%) 
R3=%.3 
R4=%4 

2“ 
2% 

PC=%7 

GT4O DEFINTIONS 
este SONGS PRL SRE TES: one euros 
T NtoRe Wag NExG GRSERTION. Thee FEATURE. 
SCANSR3 HGENERALLY £0 CONTAINS A POINTER WH 

1S USED WHEN SCANNING BEHORY EGR SOMETHING. 
HOLD=R4 :TYPICALLY A TEMPORARY WHICH IS USED 10 RETAIN 
A VALUE FOR A 7 

COUNTR=RS : TYPICALLY USED AS A COUNTER. 

LOADER DEFINITIONS 
tO REPOINTR f NT MEMORY Tabor seer LOADED 
L{ BesTRBCNT : ER R OF ort mens 0 LORD. : 
C: CKSM=COUNTR : CHECKSUM THE TNeU T DATA 
INDEX=SCAN : INDICATES Ohou 0 ASSEMBLE THE & BIT CHARACTER. 










- PAGE 


aha 


gare SP 


ego 


1G BEB TRE es 


an 


PRPS 


curvarvary 
Bes 


PaTaaATaae 


COoMmm mmm «acd 
> + + © + + 0+ © + oo 
20 Nol £m 
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a 


Ar 
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ROM BOOTSTRAP FOR THE GT4Q 
-76 00:00 


i Per 


KBOTS=177560 
KBOIB=KBOIS+2 


GTYOPC=172000 
GTYOSR=GTHOPC+2 


FAPROD=BLINIT+10. 
NUML IN=32. 


CRLF=501 

A ehoBer es 
DISIMP=160000 
DISTOP=173000 


Belt INITIALIZATION AND RESTART CODE 
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JOR SYSTEM DEFINITIONS 


;ORIGIN OF THE BOOTSTRAP. 
3 iheut T STAne pe Ciaren OF DL11 
OL1 


HARACTER FR 
ON euT STATUS OF THE DLil 
:OUTPUT CHARACTER TO THE Butt 


;KEYBOARD INPUT STATUS 

CURRENT CHARACTER FROM KEYBOARD. 
;GT4O PROGRAM COUNTER. 

;GT4O STATUS REGISTER ADDRESS. 


;START OF THE DISPLAY BUFFE 
; APPROXIMAT 


; E END OF THE DI BUFFER 
LOEAT ON OF INITIALIZATION Le 
;LOCATION OF =11 ye 

POINTER IS TO FIRST CHAR ON SC 


;WHERE THE REEN 
;NUMBER OF LINES ON TEXT TO SHOW ON THE SCREEN 


;CARRIAGE RETURN - LINE FEED 
;THE "KEY" CHARAC (1.E. ALTMODE). 


;THE GT4O JMP_ INSTRUCTION 
:THE GT4O STOP DISPLAY INSTRUCTIO 
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| DOGTOC.P1L 1S-SEP-76 00:00 INITIAL CODE 


7(1 
ZATION AND RESTART 





| = 621 
b22 
623 
bs : GT4O BOOTSTRAP CODE 
| 65 fee eteneeee Sone 
| $26 
| $e 
g2e 
625 
| 630 006900 =6000 
| «632 : . 2ORIGIN sDEFINE ORIGIN OF THE BOOTSTRAP. 
| os 
| 63 
£36 
| §37 
638 
| te ; COLD INITIALIZATION CODE 
a. Bae , 
S42 
aM START SET 
| Ele , aS a7 DLILIS. HINTtIaL ee OL Nout “NOU. a: 
‘ iBSt Hon a Sap oEnRCG ee 
INC DL110S SET BREAK BIT 
JSR SCAN, OUTLIT! 160000 “FOR 2 CHARACTER TIMES 
-WORD 0 :SEND TWO ZERO'S 
MOV SCORSTR, SCAN ;GET ADDRESS OF BAD CORE TRAP VECTOR. 
MOV #NOTHERE! 160000, (SCAN)+ :AND INSERT A POINTER T THERE. 
ENDCOR: CLR (SCAN) + NOW CLEAR ALL OF MEMORY BEYOND THE POINTER, 
BR ENDCOR 'UNTIL WE RUN OUT OF MEMORY AND TRAP. 
THER: TST -(SCAN) ;WHEN WE TRAP OUT COME HERE. 
mtd + WE uP PO! Fo 6000" CORE. 
66] HAT IF WE QUT AGAIN, IT 
bbe ?1§ STILL OK, BECAUSE WE WILL LOOP 
£63 :UNT YE GET A GOOD CORE ADDRESS. 
664 O06044 010306 MOV SCAN, SP {WHEN WE ONE, THAT IS LAST LOCATION 
bES IN T MACHINE AND HENCE OUR SP. 
656 OO6D4 105737 175614 1S: TSTB DLI10S :SEE IF BREAK IS DONE 
667 O060S2 100375 BPL 1 :NO GO BACK 
BEE 006054 005037 175614 CLR DL110S 
£70 
p74 
£55 


roo 

eae 
a 
z 
2 
z 
y 
i 
5 
g 
5 
2 


ae ee ee ee 


woe eee ee ee ee eee 





ING ROM rtd Mac FOR THE GT4O MACY11 27(1006) OS-NOV-76 
-Pll 1S-SEP-76 00:00 INITIALIZATION AND RESTART C 


SC 


F 
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ODE 


g 
3 


Ee 


677 
678 
Pe. § 
| es 006060 oOS2706 007776 RESTRT: BIS #TMPEND, SP sFORCE THE SP TO LIMIT OF EXISTING CORE. 
| 682 
4 #BLIM IN-NUMLIN, SCAN :NOW WE WILL FILL THE KEY AREAS OF THE 
RE HER Bee SY RACHA Sacro MME HB Ett RE AE 
8b 012723 ooso1s SETLPL: Hoy CRLF (SCAN) : INSERT 8 A ete Nee 
ee 10¢ 86 SETLP1 : THUS STSPLAY EoRE IS ALMOST CORRECT. 
} 
| 690 
| 681 OOB104 012703 166432 MOV #SETUP! 160000, SCAN NOW WE WILL INITALIZE CORE FOR THE 
| £52 sDISPLAY’ PICK UP POINTER TO LIST. 
ce 906110 912202 SETLP2: Hoy (SCAN) +, TABCNT GET NUMBER OF ITEMS TO INSERT. 
| bx Boer is 012301 MOV PEC RN +, POINTR Te ts FIRST CORE SSDRESS POINTER. 
Es 0061 16 01232 SETLP2: MOV {SCAN)+, (POINTR)+ :HOVE OVER A DATA ITEM NOW. 
ope iss peste ¢ SETLP3 MOVE OVER THE NEXT. 
| 01 006124 900771 BR SETLP2 !YES. GET NEXT MAJOR LIST TO INSERT. 
; 
| 7s 006126 012701 006776 SETDUN: MOV #BLIMIT-2, POINTR sESTABLISH THE BUFFER POINTER NOW. 
706 
| 707 
8 
| 719 
j ae 
ot 


NN 
we 


“I 
— 
_noO 


-S8STTL VTOS SIMULATOR 
. PAGE 





SORTS ROM (got Mag FOR THE GT4O 
76 00:00 


“I~ 
om 
wo 


HBS eae VOR 
BiG 


PUSS SRR ESOH Saw 


& 


SoM otocctatstaattotaa 


2d SRTSPOS TERE 


| Hee Gee 


i 


a 
N 


SAISELS ATOR Se 


3 


MACY1i 2711006) 
VTOS SIMULATOR 


NXTCHR: JSR 
CMP 
BGE 
CMP 
BGE 
MOV 
one 
Re 
ADD 
BR 
OF 
BR 
BR 
CR: MOV 
NORMAL: JSR 
INC 
TAB: MOV 
JSR 
INC 
BIT 
BNE 
BR 
VT MOVE 
BR 
BELL: CLR 


OS-NOV-7& 12:17 PAGE 19 


VTOS (SCROLLING) PORTION OF THE BOOTSTRAP 


#-1, TABCNT 


PC, INSERT! 160000 
TABCNT 
NXTCHR 


#40, CHAR 
Pc, INSERT! 160000 
Le 

TAB 

NXTCHR 

(PC), COUNTR 
FFLOOP 


GT4YOSR 
NXTCHR 


@NUMLIN, COUNTR 


rye Cuanacter 1S Less TE ce 
PPE ete"hy ES) Lae 


I 
AND GO TO THE CORRECT ROUTINE. 


14=FORM FEED [FF] 
ier eernee RETURN [CR] 


;RESET TAB POSITION ON ACR, AND 
;FALL THROUGH TO INSERT THE CHARACTER. 


THE — IN THE BUFFER. 


INSERT 
sUPOATE. ths POSLTION NOW 
:AND GE T CHARACTER. 


;0N A TAB, INSERT BLANKS UNTIL THE 
;NEXT CHARACTER POSITI 


;0F 8. 
ARE WE DONE YET? 
NOPE 


YES. 
:THIS PUTS THE LOW BYTE OF THE 
BRANCH CODE IN COUNTR-SAVE A WORD 


'RING BELL -WRITE IN GTHOSR 
;AND LOOP BACK 


;FORM FEED IS DONE BY INSERTING LF’S. 


ON IS A MULTIPLE 























i 
| 


g 
8 


ING ROM BOOTSTRAP FOR THE GT4O MACY11 Ap OS-NOV-7& 12:17 PAGE 20 
Pll 1S-SEP-76 00:00 VTOS SIMUL 


| o7y 
le FFLOOP: MOV #12, CHAR MAKE THE CHARACTER A LINEFEED. 
rhe Soesee preeee Sepsis JSR PC (FSUs! 160000 i09 A LINEFEED. 
778 ppeS 7 BEE LOOP a a KEEP SENDING THEM. 
ha 006276 000715 ce NXTCHR YES. NOW RETURN. DO NOT FALL THROUGH: 
a 006300 O12746 166132 LF: MOV #NXTCHR! 160000, -(SP) RETURN TO NXTCHR AFTER PROCESSING 
783 s THE LF iv FAKING A JSR. 
73s 006304 013703 007012 LFSUB: MOV JMPADD, SCAN ;GET POINTER TO FIRST CHAR ON SCREEN 
787 00631 300 LFLOOP: CMPB AN) +, CHAR FOR A LINEFE 
| FR poesia zene cre «statu, 09 SSE AE, 
| 83 506214 020327 007000 CHP SCAN, SBLIMIT RE _HE AT END OF BUFFER? 
| vel posers 001900 V TART, SCAN iN + BRP Reset 0 6 BOTTOM OF BUFFER 
| 732 006326 FLOOP : AND KEEP bN LOOK 
| 794 006330 LFOUND: INC ;WE’VE GOT THE LINE FEED. STOP SHOWING 
| 795 006332 042703 00001 BIC :FIRST LINE BY CHANGING THE “DISJMP™ 
| 736 006336 019337 907012 MOV aha IMP : INSTRUCTION TO FIRST CHAR BEY F 
| 797 O06342 004737 166350 JSR Bent INSERT # e000 -INSERT THE LF IN THE BUFFER. 
798 006346 CLR CHAR ;AND THEN INSERT ONE NULL CHARACTER BECAUSE 
| 799 :THE “DISJMP™ ADDRESS MUST BE EVEN, AND 
_ B00 THIS GUARANTEES WE WILL NOT LOSE A 
801 *@ GOOD DATA CHARACTER. WE FALL THROUGH 
ECE :TO INSERT THE NULL IN THE BUFFER 
i 
006350 1 INSERT: MOVB CHAR, (POINTR)+ TICK IN THE CHARACTER NOW. 
ate NE 352 A1005t 000001 BIT i POINTR ie xt POSITION EVEN OR 00? semi’ 
| gde le? 007000 BNE BRK aos nt 3000. ORE Sari tHe END thE BUFFER? 
| $08 006364 103410 BLO T *NO. JUST MAKE ROOM FOR ANOTHER WORD. 
810 101 MOV POINTR, SCAN :AT THE END. HOVE THE STUFF TO THE 
| = BLA 12701 001000 MOV sBSTART. POINTR ;BEGINNING OF THE BUFFER. 
| 812 006374 004737 166406 JSR PC. INSRTL! 160000 “CALL THE ROUTINE TO SAVE SPACE 
_ 813 006400 9O05023 CLR (SCAN) + AND CLEAR UP THE INSTRUCTIONS AT THE 
| 814 O06402 005013 CLR (SCAN) END OF THE BUFFER. 
| gis 404 000207 RTS PC *AND THEN RETURN. 
et? DO64O ge2121 ee INSRTL: cH wenen ea H HE “DI SINE BY RODING 4 TO POINTR : 
gig poeta Bt i } MOV & Re, (POINT tR) Rou Tie ADDRESS ati Hen tN Beaded." " 
820 005041 CLR MAKE AVAILABLE A NEW CHARACTER 
Eee oos422 000207 INSRTX: RTS PC veges RETURN TO THE CALLER. 
ei- 
eee 
| BE ODE424 012737 001000 172000 GTBUSE: MOV #BSTART, GTHOPC ;0N A BUS ERROR, WE MERELY RESTART THE GT4O AT 
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GENeenheS § 


Dna 





4 


Sas 5 Eb GS 


3 
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; THE RTI_ FOR THIS ROUTINE 
31S THE FIRST WORD OF THE TABLE 
;BELOW-IT SAVES A WORD! 


INITIALIZATION TABLE FOR THE SCROLLER 


S20 {STAT ING. RT-LOCr an Sab RTI FROM ABOVE 
eee ,secono MoS Es"RER A¥nFOE IBRD en YER, A" 


7 ; INITIALIZE THE END OF FER TO 
BLIMIT-2 8 CLEAR SPACE TO INSERT CHARACTER 
;THIS IS THE “RUNNING” START. THIS IS 


BreyNP BerpaT 10000 SAND THEN PO PORE 10 THE START OF THE SUFFER 
DISJMP; BLIMIT-NUML IN-NUMLIN ;AND A DISJMP TO THE FIRST CHAR ON SCREE 


;FINALLY START THE GT4O GOING AT 


1 
CEREEeomo «FH POSTON IN Te 


0 sEND OF INIT CODE 
HEADER BLOCK FOR THE SCROLLER 

103334 NKING 
177 A BLINGING NG BOX-HU OuT! 
116124 

171340 im STATUS F REGISTER 

Passed sBQINT 10 

DISIMP, JMPADD-2 : AND TO” Tec CHANGING JMP INST. 


COMMUNICATIONS AND MISC. SUPPORT ROUTINES 





SCROLLING ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-76 12:17 PAGE 22 
DOGTOC.P1l 1S-SEP-76 00:00 COMMUNICATIONS AND nse. SUPBORT ROUTINES 


; COMMUNICATIONS HANDLING ROUTINES 


BERR EDC OEe SRR LER ee Ree 





OO06516 105737 175610 GETOL: STB OLJJIS KT T INPUT 
100011 BPL GETDL1 ost DID. pI ot SEND Aly ANY THN YET. 
112700 175612 MOVB  DLI1IB, CHAR OCESS IT. 
006530 012737 000007 175610 MOV #7, OL11IS : SRCENABLE "THE. Hos HOST TE Rac Ten. [Rocess IT. 
006536 042700 177600 BIC 8-200, CHAR ;MAKE CHARACTER JUST SEVEN BITS. 
42 001765 BEQ GETOL IF NULL, IGNORE IT. 
RTS PC ELSE RETURN NOW. 

OO6S46 105737 177560 GETDL1: TSTB § KBOIS sDID USER TYPE A CHARACTER? 

ppeeed eet 177562 175616 AOvB ee 505 DL1108 ie g CHERRCTER To Wee HOST 

Bbeees Adages Be” SE TOL” CHEEK AGAIN FOR INPUT. 
910 
9i1 
zig : THE “GET CHARACTER” ROUTINE 
tis : 
a 
917 OOGSE4 004737 166516 GETCHR: JSR PC, GETDL! 160000 :GET A CHARACTER FROM THE HOST NOW. 
$18 020027 CMP CHAR, #ALTMOD :1S IT AN “ALTMODE™ 
au GETEXT :NO. EXIT NOW 
921 ISR PC, GETDL! 160000 ;YES. GET ANOTHER ONE NOW. 
age CMP CHAR, #°L 21S IT AN “L” 

BEQ roabeR ?YES. START LOADING NOW. 

S24 CMP CHAR, #’R 13 IT AN “R® 
28 BNE GETEXT IGNORE THE ALTMODE AND JUST RETURN THE CHAR 
$27 O06616 012737 172000 007010 MOV ISTOP, JMPADD-2 YES. RESET. STOP DISPLAY BY INSERTING A “DISTOP 
368 OO&E=e4 137 166060 PRESTR: JMP STrT! 160000 ; INSTRUCTION IN THE BUFFER, AND RESTART. 
$30 | 
931 
Be 
934 ; THE “GET A SIX BIT CHARACTER” ROUTINE 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 


DOGTOC.P1l 


SER E ROBB esa Vola Sanco Gene Ce PO OLD SERS OREO ORT 


1S-SEP-76 00:00 


166564 
000040 


000137 


1 Peele 


166630 


166676 


o00cde 


MACY11 27(1006) 
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COMMUNICATIONS AND MISC. SUPPORT ROUTINES 


GETSIX: JSR 
CMP 
BLT 
CMP 
BGT 
GETEXT: RTS 
OUTLIT: MO 
MOVE 
RTS 
GET8: JSR 
MOV 
TST 
IMP 
GETSTB: BR 
GETS4: MOV 


PC, GETCHR! 160000 ;GET A CHARACTER NOW. 
CHAR #40 18 7 a LEG LEGAL PRINTING CHARACTER? 
CHAR, #137 iT” S BIG ENOUGH. IS IT TOO BIG? 
L.BAD :YEP. ABORT. 

PC sahee TO THE CALLER. 

THIS OUTPUTS TWO CHARACTERS VIA A 

JSR SCAN, OUTLIT 

*TWO CHARACTERS 

(SCAN)+ +Pt1108 

(SCAN) +; DL110 ;DOUBLE BUFFERED 

SCAN * RETURN 


THE “GET AN EIGHT BIT CHARACTER™ ROUTINE 


nat Hs T ILL TAKE hag Pe FROM THE PREVIOUS ROUTINES 
HEM FORTHE LOADER T6 USE. NOTE. That PROM THIS POINT 
RE THE CHA crER fs ORETURNED TN ste 
ene vhs sete ra R HAN CHAR (THOUGH they ARE 


PC eso G57, SIXB1T CHARACTER. 
‘BPOATE I X TO NEXT ITEM (ALL ARE 
URES omnncnoen | IE Tortext ACE OROINE TOC THE INDEX. 
ceTe1 s INDEX=2: ASSEMBLE FIRST. CHAR 
185 WBE: SEMELE THIRD-ANO LAST CHAR 
:INDEX=8: RESET INDEX TO 0 [2] AND RETRY. 
#2, INDEX FOURTH INDEX 1S THE SAME AS THE FIRST 
X. JUST RESET IT AND FALL THROUGH. 


SORRRSGRSSSeSRR EOS 


ONdOVIOV0O0000 
— + = bb bee 


ODNOW CWO 


b+ + bb ob ++ = 0 0-2 bs 0-2 & 2 = = Bb hb Fs 0 + 0 2 hb & 2 bs 9 ah  - & e 


SIRIRR ERE RENO TOES 


ee 


KOe 





ING ROM B007 TRAP FOR THE GT4O (1006) sNOv-76 12:17 PAGE 24 
Pll -76 00:00 COMM TIONS . SUPPORT ROUTINE 
906712 p04 166630 GET@1: JSR PC, GETSIX! 160000 -GET ANOTHER CHARACTER NOW. 
716 Ol MOV L.BYT, HOLD ;AND PRESERVE IT FOR NEXT TIME THROUGH 
20 ASL L.BYT "NOW THROW AWAY LEFT nos BITS OF 
my tt ie tat ogo erie ee 
Rot rep *NEW SIX B fe "tn THE SIX 
ASLB ~=s&L. BYT :BITS FROM: TH CHARACTE THE 
ROLB = (SP?) :STACK. 1ST CHARACTER FS ho ASSEMBLED, 
MOV (SP)+,L.8YT 750 WE'LL RETURN IT TO THE USER. 
RTS : SHALL RETURN TO HIM. 
006 GETB2: ASL ; THE SECOND CHARACTER IS CREATED FROM 
ASL YT : THe 4 RIGHT BITS OF THE PREVIOUS CHARACTER 
006744 106300 ASLBSsédL: BY "AND THE FOUR MIDDLE BITS OF THE PRESENT 
006746 106104 ROLB LD 8 BIT CHARACTER, 
006750 106300 ASLB  L.BYT WE WILL CREATE THE NEW 8 BIT 
ers ieee me fer teeta TG Oe RL wove oven Te 
006756 106104 RO HOLD :ANSWER AT ve END. 
Sbesee | ipeios Rota OHOLD — 
764 A0B4Bs MOV HOC, BRING OVER THE VALUE. 
006765 012604 MOV (SP)+. HOLD THE LAST CHARACTER WE RECEIVED. 
006770 RTS PC AND RETURN RS THE CALLER. 
006772 006100 GETS3: ROL L.BYT NAL CHARACTER IS EASY. iio 
Goer belts ae By ie pencen Oc CEPT fio TS OF 
907000 196000 RORB L.BYT OF Last (4TH) cHARACT ig Ta ie 
AN7NN= ROR HOLD 
007004 1096000 RORB  L.BYT ARE DONE. 
007008 905726 TST (P+ Pon uy THR Y STACK. 
l RTS P ‘AND RETURN TO THE CALLER. 


-SBTTL THE LOADER 
- PAGE 


SCROLLING ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-76 12:17 PAGE 2s 
DOGTOC.P1l 1S-SEP-76 00:00 THE LOADER 


1041 
1042 

1043 

1044 ; THE LOADER 

ION > 

104 

ie 

1050 007012 012737 173000 007010 LOADER: MOV #DISTOP, JMPADD-2 ;STOP THE GT¥O BY INSERTING A “DISTOP” IN THE LI 
ieee 007020 005003 CLR INDEX sRESET THE 8 BIT ASSEMBLER TO THE FIRST CHAR 
1054 

1055 L.LD2: CLR .CKSM sCLEAR THE CHECKSUM 

1058 peepee poeogs 167114 ISR Pé,L_ PTR? 160000 a Bye NOU. ail 

ines Boobs l BNE L.LDe iS WAIT FOR THE ONE. 

1060 007034 004737 167114 ISR PC,L.PTR! 160000 sYES. SKIP OVER THE NEXT CHARACTER NOW. 
is 007040 004 167126 JSR PC,L 160000 

0 MOV A Bo F5 PE eR 

iB arses 1 oo0004 SUB Bae BETS Nene Bae eho. 

1 Boros rites ue Bea LIMP *NO. MUST BE END. 

1 737 167126 SR L.GWROD! 160000 -YES. ASSEMBLE A DATA WORD NOW. 
1068 007064 010001 MOV L.BYT,L.ADR :AND THIS MUST BE THE FIRST ADDRESS. 
070 

071 007086 004737 167114 L.LD3: JSR PC,L.PTR! 160000 ;GET A BYTE OF DATA NOW. 

O72 007072 O02006 » 9 D 

O73 pg7074 195705 is Rei * cKsM CENTER IS MINUS. CHECK CHECKSUM. 
om 1751 Q L. *CHECKSUM GOOD. GET NEXT COMMAND. 

076 

100 004 1666 L.BAD: J TLIT! 160000 ;BAD_L NFORM HOST 

Boe Bort ; tid Bete | AC INODS PRON AL TMODE 8 

073 007106 OO0646 BR PhecTat :AND RESTART THE DISPLAY. 

081 ; 

OBe 110 11002 L.LD4¥: MOVB  L.BYT,(L.ADR)+ ; INSERT BYTE INTO MEMORY. 

a:k Boat ig Aaoves BR C:Lb3” :AND GET THE NEXT BYTE. 


gee erm age reer re HEPEERE fagTT corer nw 
Bus ms BORN REEL RE 


ob b= b-+ bbb +b + +b = bb = Bb Bb 0 + + Be  ~ -*  e 


FRISCO SEGRE 


126 004737 167114 L.GWRD: JSR PC,L. PTR! 160000 ; ASSEMBLE A HORD. FIRST GET A CHARACTER 
132 010046 MOV L.BYT,- AND SAV 
134 167114 JSR Be. t bTa? 10000 “AND THEN fs ANOTHER ONE. 


ee ee 
' 


ING ROM BOOTSTRAP FOR THE GT4O 


SCROLL 
DOGTOC.P1l 1S-SEP-76 00:00 


ioe Brive 


007144 


0 0 2 be b= 0 bs Bs 2 hs bs Be 2 bs be 2 ha ho bo 2 bo bo hw bo be ho ho ho he he SoESoeae 
Naame? ewer bond tie 


beeeo0 


000207 


167126 
167114 


166652 
id? 


000001 


MACY11 27( 1006) 
THE LOADE 


L.JMP: JSR 


L.HALT: HALT 
L.JMP1l: JMP 


OS-NOV-7& 12:17 PAGE 2b 


L .BYT 
(SP)+,L.BYT 
PC 


PC,L. GRD: 160000 
be YT ,-(SP) 
be prt 160000 


SCAN, OUTLIT! 160000 
ALTMOD, °G 


#1, (SP) 
L.JMP1 


a(SP)+ 


-SBTTL THE SELF TEST 


- PAGE 


HHITH THE FEARSOME BOWER OF THE 11, 
SAND RETURN TO THE CALLER. 


ALL DONE WITH THE LOAD. ASSEMBLE 


AND STRAT ig ADORESS 1 CKSUM IT. 


3A BAD CHECKSUM. ALL IS EVIL. 


GOOD CHKSUM, INFORM HOST 
;WITH action 


;D0 wn rn TO START EXECUTION? 
; YES. Y WE GO. 


;IF NOT, HALT. 
;IF GO, THEN GO ALREADY. WHEEEE! 


NN ee EEEeEeeeEEeEeEeEeEeEEeeeeeeeEeEeEeEeEe—eeeeeEEe—eE—eEeEeEeEeEeEeEeEEeeeeeeeeeeeeeeeee 





E 


-Pll 


SBBIE 


0 b= bo bo b= bs bs Pan he bs 9-2 Po Bs 
om oe 
Whe 


SPUN EC) FO HO De WOOT E COPO HC oo DOU 


0b 0 B= 0b bb 8 0b 0 0 0 0 bb 0 0 0 b= = 0 0 0 0 0 bb 0 0 0s be 9 2 0-2 9 0 ho bh hb pe 
BSB ISAZINA“SSHEL 
BBS VRRLS 2 1060 


o— = 6 +b = b— 0-- Bb b= b= 8-2 b= 0 = 0 bo bb 0 = 0 8 bb 0 bs 8 0 0 bh + ee 


w 
_ 


ING ROM BOOTSTRAP FOR THE GT4O 
15-SEP-76 00:00 


MACY1Li 27(1006) 
THE SELF TEST 


BeTOP=i 3400 
LPLITE=300 
LPDARK=200 
ITALO=40 

it 1=60 


STATSB=174000 


INCR=100 
INTx=410000 
MAXX 


1777 
NAX 1377 
MINUSX=20000 
A 


Haney 
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;THIS IS GT4 K TEST 
sEIves QufcK VisuAL TEST 
Gp CONDITION OF MACHINE 


SWITHOUT READING IN DIAG. 


; BRIGHTEST 


;STOP INTERRUPT 


;ITALICS OFF 
>SYNC ON 


j BIGGEST X mn SHORTVEC 
: MINUS BIT OR Y IN SHORTVEC 


0-0 +0 + 0-0 b+ 





—_— —-—_—e — -— - 














LING ROM BOOTSTRAP FOR THE GTHO —SREVEL 27(1006) OS-NOV-7E 12:17 PAGE 28 
Pll 1S-SEP-7 00:00 tog EF té8h° 


: 


5 912737 167214 172000 MOV «FILED! 160000, GT40PC START THE GTHC 
eat Sect WAIT AND war? 


- 
1 
116 
113 oor214 114020 FILEO: POINT!BLKOFF ;POINT=--INVISIBLE 
i eee a be 
1135 gorese 112008 ONGV!INTO!LINEC DRAW TOP LINE 
l bre NTX! MAXX 
183) 007226 hy 
ONGV! INT2!LINEL 
ies pecese AueAS. ENTS SDRAW LINE TO RIGHT 
iS 007234 021377 MINUSX! MAXY =: 
1 0072 ONGV! NTMtL INEZ cs 
i208 eta 423008 INK X! MTNUSX! MAX DRAW BOTTOM LINE 
| E ahalid geapae 
l2ll OO7244 113407 LONGV! INTBELINES 
as Has Ge m 
lel O01 MAXY ;DRAW LINE TO LEFT 
1214 
isi Bes5eq AAA08e Gon 
1518 007256 600500 500 
eee a os 
Bes 507 See Aer _——s bi Y 
res brane ig7e0e TV!EINTS ’ 
é soX-Y 
197600 SHORTV! INT? 
1225 907276 057777 57777 _ y2x4Y 
1555 07300 4000 POINT 
le28 1400 1400 
155s Sossog Sotess ins 
230 007306 1 RELATV! INT4!BLKON 
1231 ey (44 7677 gaxey 
a4 : - 
B57 315 han :=X-Y 
1e3 007316 057777 57777 1oX+Y 
1236 007220 POINT 
1237 fries isa 400 
rete STATSB! INCR+20 TRY GRAPH MODES 
ie40 907330 114000 POINT 
ese Seoass Bpaeas 200 
. GRAPHX 
SR ie fe 


: 
g 
PE 
BB 
BS 


| SeRORLT 


Pll 


ee ee eee 


NG ROM BOOT aR 2 ee GT4O 


mrevas £741006) 0 


OS-NOV-76 


ILEO! 160000 


12:17- PAGE 29 


.SBTTL PAPER TAPE BOCT 
















| SCROLLING ROM BOOTSTRAP FOR THE GT4YO  MACYLI 27(1006) OS-NOV-76 12:17 PAGE 30 
| DOGTOC.F11 «= AS -SEP-76 00:00 PAPER TAPE SOOT 
2cé ; 
| ? : PAPER TAPE BOOT 
| 177550 HSR=177550 sHIGH SPEED READER ADDRESS 
1270 177560 LSR=177560 *LOW SPEED READER ADDRESS 
| igek ;  SORIGING 1400 
ie? 007490 912701 160000 PrBOOT: nov #160000, Rl SET MEMORY _CHECK LIMITS 
1 Beata ot Tepese MOV s0£V+4! 160000, 3° PS TATER be bevICE ADDRESSES 
1 14 10712 MOV PC :PRESET TRAP SS IN LOC. 4 
1 lt b1e706 po0024 MOV SP : STACK ser UP AT SPECIAL ADDRESS 
1278 OO7422 014304 DEVI: MOV -(R3),R4 :GET DEVICE ADDRESS 
173 007424 O0S714 rst aR4 3 CHECK BVRILBGILITY OF DEVICE 
{Bes irae or if po0024 ROY Pe ane fe TAL ADORESS BeED ae hasK ‘ LATER 
1363 O74 Bie MOV «RY SUR) 180. HEN CHK:REAOER STATUS AOORESS 
| 1285 OO7440 040601 BIC SP,R1 :SET R1=X7752,MASK IN SP= 
' 1286 OO7442 010111 MOV Rl. aR :STORE OWN ADORESS IN POINTER 
| 4287 007444 011102 LOOP: MOV ari Re :GET BYTE POINTER 
i5se 5 Testy ie, | Oka EMRE OnE Bit 
1290 Ba oues l BBL 2 5 T UNTIL Y 
1291 oo7454 lig4i2 oo000e Ove a(R) ,aR2 : THEN ra IT UP AND STORE IT 
1 1 000375 MPBséR2, 8375 : STORED OFFSET? 
ae ae ese LIT oe 
«1% Oarave oct IMP ~(R2) 3G0 EXECUTE AS BRANCH 
1298 : DEVICE ADDRESSES FOLLOW - DO NOT CHANGE THE ORDER 
| 1300 74 177560 V: & ;LOW SPEED READER 
iz Seoace 177550 bE ue *HIGH SPEED READER 
| $303 .SBTTL CASSETTE 800T 


eae eee 





SCROLLING ROM BOOTSTRAP FOR THE GT4O 
DOGTOC.P1i 15-SEP-76 00:00 


MACY11_27( 1006) 
CASSETTE BOOT 





1304 ; 
1305 : CASSETTE BOOT 
| 1307 177500 tacs=177500 
| is yo7soc tagoot: Hoy eters 
131 ate Bae soe * CLR ee 
Bie ais 010701 RES: MOV sre “" 
l 19 ROSCRL ; v #375, Re’ 
134 007520 112103 MOVE  (R1)+,R3 
t3i2 007522 112110 COOP1: MOVB (R1)+, (RO) 
i316 Sooese | tSbate Loope: BITE BONE 0) 
| as Bases Stes ‘ Bea tare 
1 BOF eae: BMI LOOP1 
| i pores: 196 is oo0002 nove (RQ) , (RE) 
1355 Boseus Apise> C0000 so LaOS 
| 1325 007550 009000 STOP: HALT 
| zee 007552 000755 BR RES 
7338 007554 oos710 BONE: TST (RO) 
1366 007556 100774 BNI TOP 
1231 ow oe . 
133 007562 017640 TeBLE: .WORD 17640 
| 1 007564 o02415 .WORD 2415 
133% OO7S66 112024 WORD 112024 
| 3338 007570 po0000 .WORD 0,0 
1338 007574 167500 “WORD  TABOOT! 160000 
| 1340 0075; -WORD 340 
'.% 
135 SBTTL MRL1-DB 8007 


OS-NOV-76 12:17 PAGE 31 





;TA-11 CONTROL AND STATUS REGISTER 


5 EE wild 80 
ce bah FLAG 
TEST BITS 


OMMAND FROM TABLE TO TACS 


i tee REC, ue B TACS 


ite pit NEXT CORPAND 


ey Pa ae 


RESTART BN CO CONT INUE 

;CHECK FOR ERROR 

HALT ON_ERROR 

;= 'JMP ga0’ 

;-BYTE 240: READY+T-REG. 
BYTE 


-BY $ 
YTE 24: READ+ILB8S 


:*BYT : READ+ILBS+E.0. TABLE 
‘Hest fe FILER WORDS 
POWER UP VECTOR AND PRIORITY 















ING ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-7& 12:17 PAGE 32 
Pll iS-SEP-76 00:00 MR11-D8 BOOT 


So 
se 





| 
| 1344 ;MRL1-DB BULK STORAGE PROGRAM LOADER LISTING 
136 ; . SORIGIN¢ 1600 ;KEEP TRACK OF ORIGIN 
iM poreog gugrge RFil: MOV PC.Re FIXED HEAD DISK (256 KW) 
| tied 37604 tee ee $ 
1351 qe d! 
1353 907619 01070e RKL1 MOV PC, Re sMOVING HEAD DISK (CARTRIDGE) 
is pa 
1 lé 
| 1367 
1358 
| 1359 o07620 010702 TCll: MOV PC,R2 
| BO peaa Sersaa 5 Tres ADDRESS OF WORD COUNT 
| 136¢ See Aanaoe :LAST COMMAND 
| 1363 007630 04003 4003 ZFIRST COMMAND 
| 1364 007632 100000 190000 DONE MASK 
i= 007634 0624000 24000 ERROR MASK 
1367 
1368 007636 010702 TM11: MOV PC,R2 
1368 007640 000410 ER TAPES oy eet onan 
i fore tebe pred Cora 
1 4g ll il FIRST COMMAND 
1373 007650 900200 200 ; MASK 
1374 097652 100000 100000 ‘ERROR MASK 
eB. . 
1398 907654 010702 , RP11: MOV PC,Re sMOVING HEAD DISK (PACK) 
1378 007656 o004e3 BR OTHER 
1378 007660 176716 176716 
«$38 
fice x T : T 
tees SETS RES: FEEL ag 1ST THE ADDRESS OF THE BRANCH 
| 1384 007666 005720 TST (OS+ ;RO_TO POINT AT LAST COMMAND 
i ee ber me pen ST rie Doe EES 
1356 74 FES (3+ ‘ROVE RO $8 Poe f 
ie Bee Bin By gris? aes 
1290 Bor7te 177 Beg 2 : NONE SET RY anots 
1361 005 TST (0)+ : IRST COMMAND, CHECK FOR ERROR 
1392 307706 B21041 BIT (0),-(1) :LOOK FOR SET ERROR BITS 
1393 10 001406 BEQ OTHER :NO ERRORS - TRY THE 
1238 007712 O00112 AGAIN: JMP (2) RERUN FOR ERRORS 
1 
1335 007714 167600 RFVEC: RFi1!160000 RF11 POWER UP VECTOR 
1398 007716 000340 340 
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Sulisnal ae 


fF 


35 


oe 


ie 
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ei 


cna & 


MACY11 27(1006) OS-NOV-76 12:17 PAGE 33 
MR11-DB B00 
RCll: MOV PC,R2 sFIXED HEAD DISK (64KW) 
PS OTHER sADRS OF COUNT (COMMAND+2 } 
+O NRAND (S) IS THE RESE 
OTHER: RESET 
MOV Re,RO RO 9 POINT AT WORD COUNT ADRS 
TST (O3¢ :POINT TO 5 
MOV (0)+,R1. :WORD COUNT ADDRESS TO RI 
MOV #-1000, (1) :LOAD WORD COUNT 
MOV (0). -(1) :COMMAND TO COMMAND REGISTER 
BIT #100200, (1) *CHECK FOR ERROR OR DONE 
Q .-4 :IF ITHER, KEEP LOOKING 
I AGAIN !ERROR, TRY AGAIN 
CLR PC 
;FILLER 
RKVEC: BR. 1!160000 :RK POWER UP VECTOR 
RCVEC: RC11!160000 :RC POWER UP VECTOR 
RPVEC: Ze 1!160000 :RP POWER UP VECTOR 
TCVEC: Tci1#160000 :TC11 POWER UP VECTOR 


-SBTTL ROM VERSION 1 VALUES 
. PAGE 
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SCROLLING ROM BOOTSTRAP FOR THE GT4O MACY11 27( 1006) " ssi 12:17 PAGE 34 


DDGTOC Pll 15-SEP-76 00:00 ROM VERSION | VAL 
iia sDATA PATTERN STORED IN THE GT4O BOOTSTRAP VERSION 1 
1332 ; eeeeeeeeeeee THIS IS A IMAGE LISTING OF THE GT4O <VT4OQ> BOOTSTRAP #eee¢ee4 
1434 : THE DATA IS A MIRROR IMAGE OF THAT IN THE BOOTSTRAP ROMS 
i $ ONLY THE ADDRESS FIELD IS CHANGED 
ee 14 ;BOOTVT.SOS 5/2/72 «SPECIAL» 
1433 
feat ; VT-40 BOOTSTRAP LOADER, VERSION S09, RELEASE RO1, S/2/72 
i : COPYRIGHT 1376 DIGITAL EQUIPMENT CORPORATION. 
144 : 146 MAIN STREET 
L444 : MAYNARD, MASSACHUSSETTS 
p44 : 01754 
tau 
fer : WRITTEN BY JACK BURNESS, SENIOR SYSTEMS ARCHITECT! 
1450 
tae 
ie : THIS ROUTINE IS INTENDED TO BE LOADED IN THE ROM PORTION OF THE VT-40. 
1455 
128 ; REGISTER DEFINITIONS: * rm 
145e ooco0o RO=%0 
14593 000001 R1=%] 
1460 000002 Re=%2 
i4e2 555004 ae 
1463 pppbbe RS=4S 
1464 O0000& =%5 
14é5 008007 R7= 
1466 
1467 oococos SP=R6 
Hi | 009007 PC=R7 
1470 oooooc RET1=R0 mer URN OF VALUE REGISTER. 
1471 000001 INP1=R1 NT FOR LED FUNCTION 
1i95 nos INPe= ‘ere ARGUMENT 
14 WORK 1=R3 FIRST WORK REGISTER. 
1474 oocoo4 WORK2=R4 : SECOND WORKING REGISTER. 
ee ooooos SCRi= : SCRATCH REGISTER. 
1477 CKSM=WORK 1 ; OVERLAPPING DEFINITIONS FOR LOADER PORTION. 
1478 vane LENT ORET 
1479 0o0005 LBC=SCR1 
1460 000001 LADR=INP1 
1481 
1482 


| 


DDGTOC.P11 


0 Ob bp ob Doe 
1b. bm Po 5 cb ab 
ihe of Beep ep 


ie 


CnUTUN OTN anan 
WONWUI£C WTO 


a bs hn bs a Os ban Be 2 0s Bs 00 Bs 8 Bs se Bo bs Be bs Bs oe bw Be be he 


RSMMC 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 
15-SEP-76 00:00 


036000 
166900 


001360 


016000 


012705 000026 

905015 

010745 

oocods 

Oie7e? Oo00b OLiese 


012767 000201 007560 


teh 27( 1006) 
OM VERSION 1 


STARTA: 


COREND=36000 
ROMORG=166000 


STARTX=0 

STARTY=1360 

VINGE CE 7 6Q00-1S0000 
$=27560 


Bi S=eS614 
P10IS=2S610 


cep TesKeota ts 
p1d0B=P1008s8 
Pibjespigdc-4 
STKSRT=P101C-2-30000 
JMPOIS=160000 


PWRFAL=24 


-=16000 
. =ROMORG 


HOV SPLRFAL +2, SCR 
‘MOV PC, -(SCRI) 


RESET 
MOV #7,P10IS 
MOV #1°KBOIS 

V #201 ,P100S 


OS-NOV-7& 12:17 PAGE 35 
VALUES 


THERE a yOgaTin OF er eke 60. 


;WHERE TO START DISPLAYING THE . POSSE, 
;WHERE TO START DISPLAYING THE Y 


VT4O “teem COUNTER. 


;TTY INPUT 


ma 18 OuTPU 
SINPUT CHBRACTER FROM 15 BCUS ONE CAVE CHARACTER 


;FIRST LOCATION OF STACK. 


Uy CHRRECTER. 


;THE VT-40 DISPLAY JUMP INSTRUCTION. 


;POWER FAIL RESTART LOCATION. 


;SET THE ORIGIN NOW!!!! 


tte UP 1 oor to 2 P. iy STATUS. 
;SET UP THE RESTART LOCATION. 


;RESET THE BUS. 


NTTHAC LSE POY ined 10 pur 
;INITIALIZE T 
; INITIALIZE PoP-10' OUTPUT. 


isa) 


RESH SES TR RESO S 


ee ed ee ee ed 


Pll 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 
DOGTOC. :00 


1S-SEP-76 00 


ae 


= 
Bae 


015770 
160000 
166756 
000030 


000022 
003706 


000210 


166072 


000124 


166250 


ee 27(1006) OS-NOV-7& 12:17 PAGE 36 
OM VERSION i VALUES 


RSTPT: se! #STKSRT , SP ;SET UP Pas STACK NOW! 


L BESS POINTER 
aBV SJMPDIS, INP2 aS Pe ag INSTRUCTION IN A REGISTER. 
MOV INP2, (LADR)+ IT 10 “LOCATION 0. 

MOV aD1SPRG+150000, (LADR) ADDRESS POINT ER INTO 2. 

MOV #PWRFAL+4,LADR’ é SET UP itere nt WILL STORE HARACTERS. 

CLR RETI :PREPARE TO RT A ZERO EMBRAC TER: 

ISR PC bocHAR INSERT IT NOW. 

CLR vT4oPc ‘CLEAR THE DISPLAY PROGRAM COUNTER AND START. 
MAJOR: 58 PC, GTCHR GT A CHARACTER NOW. 

NOP 

NOP 


; INSERT IN DISPLAY BUFFER NOW. 


iteaGs CURRENT DISPLAY JUMP. 


MOV #MAJOR+ 150000, - (SP) 


DOCHAR: EP Teal Ss, (SCR1)+ 


CLR s CLEAR FUT URE ADDRE RODRESS FOR ive. 
MOV thes (Scr )+ : STICK IN UMP WHILE WE REPLACE CURREN 
CLR (SCRI) :A DISPLAY JUMP TO ZERO. 
CLR (PADR} *NOW REPLACE CURREN DISPLAY JUMP BY THE CHARACT 
BIS RET1, (LADR)+ :IT’S DONE THIS WAY TO WASTE a CYCL ES. 
MOV INP2, (L :T0 AVOID TIMING PROBLEMS WITH THE VT4O. 
RTS PC :AND FINALLY RETURN. 
GTe: ISR PC, GTSIX :GT SIX BITS NOW. 
Vv RET1, -(SP) *SAVE THE CHARACTER NOW. 
BR thee : BYPASS nite BER 
Te4: CLR NP :RESE MAGIC REGISTER NOW. 
TPe4: TST (INP2)+ + RCREMEN WHERE TO GO. 
GT8TB+1S0000( INP2) , PC ;UPDATE PC NOW. 
GTSP=. 
GT81: JSR PC, GTSIX A CHARACTER NOW. 
Nov Ret, WORK2 eve FOR A SECOND. 


cr 


SCROLL 
DOGTOC. 


1630 


& 


sopunRouRe 


ING ROM 
Pll 


016162 


ooo 
ara 
row 
o-e-r- 
Ont 


2 
- 
azn 


Bone 


= = 0 
io £cr©§d 


+= b= 0 6 eh 
forururo 


OOOVM000000 20 


Olb2c4 


pele Ets 





000020 
000040 


015772 
000064 


MACY11 27( 1006 
ROM VERSION 1 
ASL 


3} 
Rat 
ASL 
ROLB 
MOV 
RTS 
GT8e2: 


GT83: ROL 


- gTeTB. ss 


GTSIX: JSR 


GTCHP: TST 


GTCHR: MOV 
GTCHL: JSR 


GT81-GTSP 
GT82-GTSP 
GT83-GT8P 
GT84-GT8P 


PC, GTCHR 
RET, #40 
RET1, #137 
LBAD 

PC 


(SP)+ 
#P101C-30000,RET1 
PC, CHECK 


TCHL 
@RET1, -( SP) 
(RETL5+ 


) ov 12:17 PAGE 37 
VALUES 


;SHIFT TO LEFT OF BYTE 
:PACK THEM IN. 

A GOOD 8 BIT THING. 
‘POP AND RETURN NOW. 


;WORST CASE. SHIFT 4 


FINAL CHARACTER ASSEMBLED. 
: FUDGE STACK. 
;AND RETURN NOW. 


;PUSH ZERO CONDITION BACK INTO NEVER-NEVER LAND. 


;UPDATE THE STACK. 


;SET UP POINTER TO THE INPUT CHARACTER. 


;ANY CHARACTERS THERE? 


;PUSH THE CHAR ON THE STACK. 
;CLEAR THE CHAR GOT FLAG NOW. 





ING ROM BOOTSTRAP FOR THE GT4O 
76 00:00 


SCROLL 
DOGTDC.P11 
bibs 


01 
016510 
016516 


177600 
000177 


000: 75 


MACY1L1 27( 1006) 


GTNP: 


CHECK: 


CHECK1: 


CHECK3: 


CHECK4: 


OS-NOV-76 12:17 PAGE 38 
ROM VERSION 1 VALUES 


&- , (SP) 
co 
OO et 
ait 
) ORET 
hale 
DRET1, #114 
LOAD 


e @RETI 


tL [Hs 


P100C 
CHECK1 
P100S 


CHECK! 
Sted ,P1008 
P100C 


SEL BT 


ieee si 


;NOW DO THE FOUGING. 


;IF ALTMODE, LOOP 


300 WE WANT TO OUTPUT? 
‘WE DO. 1s THE 10 READY? 

tNOT QUITE 

tIT’S READY. SEND THE CHARACTER. 
'AND THE SAVED CHARACTER. 


Nope. Ro IS bie at READY? 


YEP TEP. SEV T HARACTER NOW 
pe THe COMMUNICATIONS DEVICE. 

;IS THE OUTPUT READY? 

sIF NOT, WAIT TILL DONE. 

:AND THEN SEND OUT THE CHARACTER. 

;1S THE 10 TALKING TO ME. 

*NOPE. EXIT. 

GT THE CHARACTE 


NOW. 
RAKE SURE IT’S NONE ZERO. 
;REINITIALIZE COMMUNICATION LINE. 


;AND RETURN. 


eee eee eee 


penekk ING ROM BOOTSTRAP FOR THE GT4O 
DOGTOC.P1i 15-SEP-76 00:00 
1708 

1709 

1710 

1711 

17le 

1713 

1714 

1715 

1718 

171 

1718 

1720 guese 

1721 bieese Bris 172000 
oe 016526 012706 9015770 

1 

1786 Bigess BOs%? oo0070 
fe? Olesve Qora7a 

173 016544 B36? oocced 
1730 016550 004767 000072 
1732 Olesse iee70 po0004 
oe ret 082708 000002 
i7% bites Bos7er oooose 
fe} 16574 010001 

17 16576 767 000026 
1733 Dleece Boccia 

1740 016604 oe? 

1741 016606 1751 

1945 016610 012700 

1744 

1745 O1661e2 102 175 
1746 016614 004767 000110 
ie 0l6620 000167 177210 
1749 016624 110021 

ire 016626 763 

1752 tea 004767 177276 
1753 016634 060003 

1754 016636 042700 177400 
1 teat 

ize 1644 

ft | yess 004767 177756 
1760 Oleess Obave? 177750 
1761 016660 000300 

1 01666e 

1763 O16664 


LLDe: R 


LLD3: j 


LOoOaAaoDeE R 


IS 
#172000, (INP2) 
#STKSRT, SP 


PC, LPTR 
LOY 
LCKSM 
LLDe 

(PC)+, RET 
ele 
FC sSeNDIT 


LBYT, (LADR)+ 
LLD3 


take 


BE 
PC,LPTR 
LevT=( -(SP) 


LB 
(SP)+,LBYT 
PC 


NOV-76 12:17 PAGE 39 


‘AND ALS FIRST 8 BIT Top THe 
CLEVERLY 
RESET STACK POINTER 


ee8 THE CHECKSUM 
;GT A BYT 
;IS IT ONE? 


;NOPE. WAIT AWHILE 
;YEP. GT’ NEXT CHARACTER. 


es Pere STUFF. 
Se ET EE Bese 


AND REMEMBER FOR OLD TIMES SAKE. 


(DATA) 
DONE WITH THE COUNTER? 
P. GOOD CHEEK SUM? 

. LOAD ERROR 


via. 


;GT A on 


igE OUT SOME CHARACTERS NOW. 


5 PLAS THE BYTE IN CORE. 
;GT ANOTHER ONE. 


sAPDRTE. CRE be 


aE UP THE BYTE NOW. 
TE THE COUNTER. 


;GT A CHARACTER. 
;SAVE FOR A 


MBLE THE WORD. 
;AND RETURN WITH A 16 BITER. 






1764 
1765 
1766 


1775 


SEURRC CRC SEE SER SER ESS IRATE Stal tos 


b= Ob 0 + 8 0 0 0 0 0 = = 0 ee ee ee 


WOoOwowowowwonwowno 
Ot 
WONMUW CWO 


SCROLL 
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704 
18518 


016714 
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177754 
177730 


000001 


175 


b2rase 


006650 





MACY1i 27( 1006) 





ROM VERSION 1 VALUES 


LIMP: 


LIMP1: 


SENDIT: 


is 


MOV 
CLRB 
SWAB 


OS-NOV-76 12:17 PAGE 40 


PC, LGWRD 
LeyT -(SP) 


teen 


L 
ty aS 
ue} RET1 


10? o9° 10 


PC, SENDIT 
2 
a(SP)+ 


s6T A CHET 
R. ZERO? 










Save, ONT THE STACK. 





ee ie -10 Pagina LBADED Oke” 


GOOD CTRL" 









SAND AWAY WE GO. 


Ft, THE OUTPUT DEVICE NOW. 
;OUTPUT CLEAR? 





3 . THEM . 
;IF NOT EQUAL, REPEAT. 





wo ae ee ee ee 
' 


BO4 


12:17 PAGE 41 
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ING ROM 8 
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BACK T 
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USERS CHARAC 


PROGRAM WHICH W 
POWER FAIL LOC 
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8 
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S 
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: THEN Ure 79 THE POWERFAIL LOCATION. 


2 Banh 

4 Bas 
ows eBBS G 
a hoc > hie 
gin 
Shae 
a3 
Eee 
wy 
oon F ferats her, 4 


= EMS 
=A kane Ps =| Qo 


8 
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STS Sica tot ett doaydoday dad de aia 
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SCROLLING ROM BOOTSTRAP FOR THE GT4O 
DOGTOC Pll 18-SEP-76 00:00 


AGAIN 





CHECKY OIESIE 
SRLF = r 

SEV rae 
Devi 07422 


agers 
ak 
Ste 


s 


ob -e 
ts 
Zn 


f 
% 
888558 
etal 
oro 8 


of 
pe 


1 QO011 
BB 1196 
- 
_ EFLOOP 
FILCNT 101 
| FILEO §=6 007214 
| FILLER 001010 
| GETCHR 
Sth, Bees 
GE CO06650 
 GETSIX 006630 
GETE OObEE4 
| GET8TB 006700 
GET61 006712 


5798 


- bom 
TGR retires 
otc aed 
see en ca £2 


zn 


eT 


1078 
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1lll 
704 


828 


360 
1797 


ese 


449% 


906 
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OS-NOV-7& 12:17 PAGE 43 
CROSS REFERENCE TABLE -- USE® SYMBOLS 


789 808 ess 


376 


8s9 875 


ele* 217 221# 


317 


8s9 
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| 


FT A mane 


DOY 
OS-NOV-7& 12:17 PAGE 44 


NCE TABLE -- USER SYMBOLS 


1192 
1632 
l2i2 
927% 
1497 


27( 1006) 
RE 
1667 
8&2 
1631 
83s 
456 
g0Ss 
1208 
875 
686 
4938 
5 
1765 


@ Be gkeisg & Aer ® 

o 8% EunIMsoerpghagaceicenniarensn BrMRiiRe earns 
y tee ese 8 ee tt sean nm ee Seen aenaaeaaeeaane & eo te te 
get RRS. SRR ee ae oh EF RARE SR a BORER GS 
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CDC D6 DODO 96909096 9696919096999 ped FT T_T DT AT A AT A.W 











——- eee + 





———— 


EQO4 
12:17 PAGE 45 


OS-NOV-76 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1S-SEP-76 00:00 


| si BOOTSTRAP FOR THE GT4O MACY13 27(1006) 


| DOG 
g 


1767 
1106 

779 
1251 


1760 
1096 
771 
14058 
1240 


a 
a ” & 7 ~~ + ou 


i207 
17528 
1 
ibs 
10878 
1213 
1208 
342 
763 
110 
1227 


077 
10948 
1074 
1071 
1208 
1205 
1205 

340 

7518 

=a] 

734 

378 

077 

404 
1215 

344 


ESRERMnRiy = Rdg SoMa EB SRORGSR ARPES BARRE 


jn gg TR ISR Rithe cohen Gai RG EER enns een hohe dest twas 


Ce oe oe oe) Se ee ee kate ieee Kom ee ae La Le} Cee ie em Roe oe ee oe Cot oe koe koe re pee ee eer 


ee ee ae 
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ee ee ee a _ _—— 





ae ee ee + 


FO4 


SCROLLING ROM BOOTSTRAP FOR THE GT4O MACYLI 27(1006) OS-NOV-7& 12:17 PAGE 46 
DOGTDC.P11  iS-SEP-7& 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS 
j 
PTBOOT 007400 12738 
| pears Coos is08 153 1548 =: 186 
= 
5 = 0457 e } l 1697# 1696 
Bie = peers isc 14 138, 1695 699% 
Be a an ae 
= d 4 
Bon nc i ee 
| RCVEC 14198 
RCli 007720 14008 1 
RELATV= 130000 11468 1230 
Bt Boas ; 3048 (397 
eS OpSeis 38h 
RF11 007600 13488 1397 
8 
ROMADD 001 1688 190 211 243 este «275 218 
ROMORG= 166000 14868 
mi Bee TE 
15438 1660 1747 
8 = merc 206 236 264 287 
102 382 388 3358 
| C 151 3818 
_ SCOPEF 002076 385 367% 389% 2938 
SCOPEG O02062 384 386 3898 
| SENDIT 016730 174 1775 17978 «#1799 ~=«61803 
Boke i. 
|- tre 006110 £948 oat 
SETLP3 OOG1IE 6988 700 
SETUP 006432 691 8498 
| «SHORTV= 1 1141@ 1218 1220 1222 ©1224 
| START 17] 453 b44e 
'<STARTA Ol 456 =s«1S3l8 
| STARTX= 000000 14888 1832 
| STARTY= 001360 14898 1833 
STATSR= 170000 11638 * 
} Ter TBs igs if 195 zu2 310 
TKSRTs 15048 154 l 
7 13258 1329 
SWITCH 002256 1 312 441% 
900176 1638 381 383 443% 2444 wage 450 
ers . Bu a 
| s 11768 
| «TAs 006222 740 7588 40s 762 
TABLE 007562 1312 © 13328 
TABOOT 12098 1 
Tacs = 13078 1 
i 7 z 1 1369 13828 
TC 14238 
/ C11 007620 13598 1423 
TERM 001022 1788 4«= See 0S 354 
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gat 8 SARs 8 sae 
£ MOREE ah RSCES eatehek a Bats 


- 


UUM iG aaa ERR Mag a 


-76 00:00 


iS- 


ROM BOOTSTRAP FOR THE GT4O 


_ ees 


SSs8ssssssssssesssssss 


fe 8 FARBEFPE on. oni FP, a 


—" 
rete) 


ING 
PLL 





ee. SC 





HO4 


| 
| ee 


o 
Tr 
aw 
nF 
4 
uo 
—z 
of 
~ 
ie | 
>t 
Su 
in 
— 
-ti 
© 
4 
o" 
tu 
a |} 
iN 
>-wW 
QO 
to 
qQ 


OR THE GT4O 
:00 


Plu TS-SEP-re 00: 


ee ee 


,J0R 


| ING ROM BOOTSTRAP FOR THE GT4O i ) OS-NOV-76 12:17 PAGE SO 
| Soe aE Be, 15-SEP-76 00:00 Cross Eee NCE TABLE -- mACRG NAMES 


. SSUPR le 
. STRAP ls 
.STYPa ls 
nei 
a 1s 
.STYPO ls 

ls 
ell is 


- ABS. 017000 000 


ERRORS DETEC 0 
DEFAULT GLOBAL * GENERATED: 0 


ath he lee - SEQ. eel : TOC=DDGTDC.SML,DOGTOC.P11 
eer I: 10; e555 


ee a ee 


w a 
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